home *** CD-ROM | disk | FTP | other *** search
- rem Special Functions:
- rem ==================
- calc x = {-10,10,0.1}
- calc erf(x) "Error function erf(x) ->" "x ->"
- calc Si({0.1,20,0.1}) "Sine Integral Si(x) ->" "x ->"
- calc Fsin({-10,10,0.1}) "Fresnel sin Integral Fsin(x) ->" "x ->"
- calc dilog(x) "dilog(x) ->" "x ->"
- @if errorlevel 1 goto fin
- calc x = {0.01,10,0.1}
- calc lg(Gamma(x)) "lg(Gamma(x)) ->" "x ->"
- @if errorlevel 1 goto fin
- calc l = 4
- calc m = 2
- calc help Plm
- @pause
- calc Plm(l,m,{-1,1,0.01}) "Plm(x)) ->" "x ->"
- @if errorlevel 1 goto fin
- calc help Ylm
- @pause
- calc Ylm(l,m,{0,Pi,0.01}) "Ylm(x)) ->" "x ->"
- calc CHGM(-2.5,1.2,{-10,12,0.1}) "Confluent Hypergeometric Function ->" "x ->"
- calc H s
- @pause
- : fin